home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b2.d64
/
1541backup(free)
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-28
|
4KB
|
147 lines
1 FORI=828TO883:READA:POKEI,A:NEXTI
10 REM"D=DSAVE"@BACK2",D0:?DS$:CATALOGD0
20 BB[178][194](44)[170]27:[151]995,BB
30 [151]998,[194](55):[151]999,[194](56):[151]55,0:[151]56,BB:[156]
40 BB[178][194](995)
50 N[178][194](999)[171]BB[171]1:BA[178]BB[172]256:MA[178]828
60 [134]BM%(35,24)
70 [129]J[178]0[164]7:TA(J)[178]2[174]J:[130]
80 [153]"LOADBACKUP 1541WAIT - JIM LAW / KEITH HOPE"
90 [153]"'GOTO10000' IF PROGRAM QUITS ABNORMALLY"
100 [153]""N"BUFFERS AVAILABLE"
110 [159]1,8,15
200 [143] *** MAIN FUNCTIONS ****
210 [141]1000
220 D$[178]"S":[141]3200:I2$[178]IR$
230 [139]DR$[179][177]"2A"[167][153]"ILLEGAL DOS 1.0 DISKWAIT":[137]10000
240 [139]I2$[178]I1$[167][153]"SOURCE AND DESTINATION HAVE SAME ID CODEWAIT":[137]10000
250 [141]2500
260 T[178]TS:S[178]0:NU[178]1:T1[178]T:S1[178]S
270 [152]1,"I0":[159]3,8,3,"#"
280 [153]"READING BLOCK #";
290 [139]BM%(T1,S1)[178]0[167][141]2000:NU[178]NU[170]1:[139]NU[177]N[167]320
300 S1[178]S1[170]1:[139]S1[177]20[167]S1[178]0:T1[178]T1[170]1
310 [139]T1[179]TF[170]1[167]290
320 [153]""
330 [160]3
340 D$[178]"D":[141]3200:[139]IR$[179][177]I1$[167][137]340
350 [152]1,"I0":[159]3,8,3,"#"
360 [153]"WRITING BUFFER #";
370 NU[178]1:T1[178]T:S1[178]S
380 [139]BM%(T1,S1)[178]0[167][141]2200:NU[178]NU[170]1:[139]NU[177]N[167]410
390 S1[178]S1[170]1:[139]S1[177]20[167]S1[178]0:T1[178]T1[170]1
400 [139]T1[179]TF[170]1[167]380
410 [153]""
420 [160]3
430 S[178]S1[170]1:[139]S[177]20[167]S[178]0:T1[178]T1[170]1
440 T[178]T1:[139]T[177]TF[167]500
450 D$[178]"S":[141]3200:[139]IR$[179][177]I2$[167]450
460 NU[178]1:T1[178]T:S1[178]S:[137]270
500 [143] FINISHED XFERS
510 [160]1
520 [151]55,[194](998):[151]56,[194](999):[156]
530 [153]"BACKUP COMPLETE"
540 [159]1,8,0,"$0"
550 [161]#1,A$:[139]A$[179][177]""[167]550
560 [153]A$;:[137]610
570 [161]#1,A$:SS[178]ST:A[178][195](A$):[139]A[167]A[178][198](A$)
580 [161]#1,B$:SS[178]ST:B[178][195](B$):[139]B[167]A[178][198](B$)
590 [139]SS[167]660
600 [139]A[178]1[175]B[178]1[167][141]630
610 [161]#1,A$:[139]A$[178]""[167][153]:[137]570
620 [153]A$;:[137]610
630 [161]#1,A$:SS[178]ST:A[178][195](A$):[139]A[167]A[178][198](A$)
640 [161]#1,B$:SS[178]ST:B[178][195](B$):[139]B[167]B[178][198](B$)
650 N[178]B[172]256[170]A:[153]N;:[142]
660 [160]1
670 [128]
1000 [143] HEADER DEST DISK
1010 [153]"INSERT DESTINATION DISK TO BE FORMATTED"
1020 [133]"DISK NAMECLOSE CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";DN$
1030 [139]DN$[178]"CLOSE"[167][153]"ONONON";:[137]1020
1040 [139][195](DN$)[177]16[167][156]:[137]40
1050 F[178]0:[129]J[178]1[164][195](DN$):S1$[178][202](DN$,J,1)
1060 [139]S1$[178]"CLOSE"[176]S1$[178][199](34)[167]F[178]1
1070 [130]J:[139]F[167][153]"ONONON";:[137]1020
1080 [133]"UNIQUE DISK IDCLOSE CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";I1$
1090 [139]I1$[178]"CLOSE"[167][153]"ONON";:[137]1080
1100 [139][195](I1$)[179][177]2[167][153]"ONON";:[137]1080
1110 [152]1,"N0:"[170]DN$[170]","[170]I1$
1120 [141]3000
1130 [139]ER[167][153]ER$:[137]10000
1140 [142]
2000 [143] READ BLOCK T1,S1 TO BUFFER # NU
2010 C[178].:[143]C=0
2020 [152]1,"U1";3;0;T1;S1
2030 [141]3000:[139][168]ER[167]2060
2040 C[178]C[170]1:[139]C[179]3[137]2020
2050 [153]ER$:[129]J[178](BB[170]NU)[172]256[164](BB[170]NU)[172]256[170]255:[151]J,.:[130]J:[137]2100
2060 [152]1,"B-P";3;0
2070 [139]NU[179][177]0[167][153]" CMDCMDCMD";[201](" "[170][196](NU),3);"CMDCMDCMD";
2080 [151]996,[194](3):[151]997,[194](4):[151]4,BB[170]NU:[158]MA
2085 [151]3,[194](996):[151]4,[194](997)
2090 [139]ST[179][177].[175]ST[179][177]64[167][141]3000:[137]2050:[143] C=0
2100 [142]
2200 [143] WRITE BLOCK T1,S1 FROM BUFFER # NU
2210 C[178].:[143]C=0
2220 [152]1,"B-A";0;T1;S1:[152]1,"B-P";3;0
2230 [153]" CMDCMDCMD";[201](" "[170][196](NU),3);"CMDCMDCMD";
2240 [151]996,[194](3):[151]997,[194](4):[151]4,BB[170]NU:[158]MA[170]3
2245 [151]3,[194](996):[151]4,[194](997)
2250 [139]ST[179][177].[175]ST[179][177]64[167][153]"IEEE WRITE ERROR"ST"WAIT":[137]10000:[143] C=0
2260 [152]1,"U2";3;0;T1;S1
2270 [141]3000:[139][168]ER[167]2300
2280 C[178]C[170]1:[139]C[179]3[167]2260
2290 [153]"UNRECOVERABLE WRITE ERROR"ER$:[137]10000
2300 [142]
2500 [143] GET BAM TO BM%(T,S)
2510 TS[178]1:TF[178].:[143] TF=0
2520 [152]1,"I0":[159]3,8,3,"#"
2530 S9[178]0
2540 [153]"TRACK # BLOCKS TO XFER"
2550 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
2560 NU[178]0:T1[178]18:S1[178]0:C0$[178][199](.):[141]2000
2570 BY[178]4
2580 T%[178](BY[171]4)[173]4[170]1
2590 [153]" ";T%;
2600 [139][194](BA[170]BY)[178].[167][129]J[178].[164]20:BM%(T%,J)[178].:[130]:BY[178]BY[170]4:[137]2650
2610 S[178]0
2620 BY[178]BY[170]1:A0[178][194](BA[170]BY):[129]J[178].[164]7:BM%(T%,S)[178]A0[175]TA(J):S[178]S[170]1:[130]
2630 [139]S[179]22[167]2620
2640 BY[178]BY[170]1
2650 ES[178]21:[139]T%[177]17[167]ES[178]19
2660 [139]T%[177]24[167]ES[178]18
2670 [139]T%[177]30[167]ES[178]17
2680 [129]J[178]ES[164]24:BM%(T%,J)[178][171]1:[130]
2690 SM[178].:[129]J[178].[164]20:[139]BM%(T%,J)[178].[167]SM[178]SM[170]1
2700 [130]:[153][163]12);SM:S9[178]S9[170]SM
2710 [139]SM[178].[175]TS[178]T%[167]TS[178]TS[170]1:[137]2730
2720 [139]SM[179][177].[167]TF[178]T%
2730 [139]BY[179]143[167]2580
2740 [160]3
2750 [153]"START =";TS;" FINISH =";TF
2760 [153]"A TOTAL OF";S9;"BLOCKS TO XFER"
2770 S8[178]90[170]25[170](.650[170].980)[172]S9
2780 S7[178][181](S8[173]60):[153]"APPROX";S7":"[181](S8[171]S7[172]60);"FOR COPY"
2790 [142]
3000 [143] READ ERR CH TO ER,ER$
3010 [132]1,E0$,E1$,E2$,E3$:ER$[178]E0$[170]","[170]E1$[170]","[170]E2$[170]","[170]E3$
3020 ER[178][195](E0$):[139]ER[167]ER[178][197](E0$)
3030 [142]
3200 [143] INSTRUCT TO SWAP TO DISK GIVEN IN D$
3210 [139]D$[178]"D"[167]S1$[178]"DESTINATION":[137]3230
3220 S1$[178]"SOURCE"
3230 [153]"INSERT ";S1$;" DISK, PRESS SPACEWAIT"
3240 [161]A$:[139]A$[179][177]" "[167]3240
3250 [159]2,8,0,"$0"
3260 [141]3000:[139]ER[177]0[167]10000
3270 [129]J[178]1[164]26:[161]#2,A$:[130]J
3280 [161]#2,A$:[161]#2,B$:IR$[178]A$[170]B$
3290 [161]#2,A$:[161]#2,A$:[161]#2,B$:DR$[178]A$[170]B$
3300 [160]2:[142]
10000 [143] DROP OUT
10010 [151]55,[194](998):[151]56,[194](999):[156]:[144]
15000 [131]76,66,3,76,91,3,162,3,32,198,255,160,0,132,3,32,207,255,145
15010 [131]3,165,144,208,3,200,208,244,32,204,255,96,162,3,32,201,255,160
15020 [131]0,132,3,177,3,32,210,255,165,144,208,3,200,208,244,32,204,255,96